From 07d649e07753f10752f5b33f72b4445d12b5a64d Mon Sep 17 00:00:00 2001 From: justbur Date: Tue, 5 Apr 2016 10:05:38 -0400 Subject: [PATCH] Fix problem where prefix-title-alist was not updated --- which-key.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/which-key.el b/which-key.el index 891deaaa824..898109f13b9 100644 --- a/which-key.el +++ b/which-key.el @@ -780,7 +780,10 @@ addition KEY-SEQUENCE NAME pairs) to apply." (setq key-sequence (pop more) name (pop more))) (if (assq mode which-key-prefix-name-alist) (setcdr (assq mode which-key-prefix-name-alist) mode-name-alist) - (push (cons mode mode-name-alist) which-key-prefix-name-alist)))) + (push (cons mode mode-name-alist) which-key-prefix-name-alist)) + (if (assq mode which-key-prefix-title-alist) + (setcdr (assq mode which-key-prefix-title-alist) mode-title-alist) + (push (cons mode mode-title-alist) which-key-prefix-title-alist)))) (put 'which-key-declare-prefixes-for-mode 'lisp-indent-function 'defun) (defun which-key-define-key-recursively (map key def &optional recursing) -- 2.30.2